﻿Public Class worldModel

    Private Shared WM As worldModel

    Private _myPos As vector
    Private _myAngle As Int32
    Private _health As Int16
    Private _teammates As playerObject()
    Private _opponents As playerObject()
    Private _fireCount As Int16
    Private _granerCount As Int16

    Private _cycle As Int32
    Private _mapH As Int32
    Private _mapW As Int32
    Private _hearMessage As Int32
    Private _blocks As vector()

    Public Sub New()

    End Sub

    Public Shared Function getInstance()
        Return WM
    End Function

    Public Property Cycle() As Integer
        Get
            Return _cycle
        End Get
        Set(ByVal value As Integer)
            _cycle = value
        End Set
    End Property

    Public Property HearMessage() As String
        Get
            Return _HearMessage
        End Get
        Set(ByVal value As String)
            _HearMessage = value
        End Set
    End Property

    Public Property mapW() As Integer
        Get
            Return _mapW
        End Get
        Set(ByVal value As Integer)
            _mapW = value
        End Set
    End Property

    Public Property mapH() As Integer
        Get
            Return _mapH
        End Get
        Set(ByVal value As Integer)
            _mapH = value
        End Set
    End Property

    Public Property Health() As Double
        Get
            Return _Health
        End Get
        Set(ByVal value As Double)
            _Health = value
        End Set
    End Property

    Public Property MyPos() As vector
        Get
            Return _myPos
        End Get
        Set(ByVal value As vector)
            _myPos = value
        End Set
    End Property

    Public Property MyAngle() As Double
        Get
            Return _MyAngle
        End Get
        Set(ByVal value As Double)
            _MyAngle = value
        End Set
    End Property

    Public Property FireCount() As Integer
        Get
            Return _FireCount
        End Get
        Set(ByVal value As Integer)
            _FireCount = value
        End Set
    End Property

    Public Property granerCount() As Integer
        Get
            Return _granerCount
        End Get
        Set(ByVal value As Integer)
            _granerCount = value
        End Set
    End Property





    Public Property Teammates() As playerObject()
        Get
            Return _teammates
        End Get
        Set(ByVal value As playerObject())
            _teammates = value
        End Set
    End Property

    Public Property Opponents() As playerObject()
        Get
            Return _Opponents
        End Get
        Set(ByVal value As playerObject())
            _Opponents = value
        End Set
    End Property

    Public Property Blocks() As vector()
        Get
            Return _blocks
        End Get
        Set(ByVal value As vector())
            _blocks = value
        End Set
    End Property

End Class
